home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / S / Stock HELPER®.cpt / Stock HELPERÆ V0.2 / background_35582.txt < prev    next >
Text File  |  1988-03-23  |  3KB  |  150 lines
  1. -- background: 35582 from stack: in.2
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackGround
  8.   send tabKey
  9. end openBackGround
  10.  
  11. on mouseup
  12.   send tabkey
  13. end mouseup
  14.  
  15.  
  16. -- part 1 (button)
  17. -- low flags: 00
  18. -- high flags: 0000
  19. -- rect: left=5 top=319 right=338 bottom=25
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 21700 / 21700
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: Home
  28. ----- HyperTalk script -----
  29. on mouseUp
  30.   visual effect iris close
  31.   go home
  32. end mouseUp
  33.  
  34.  
  35.  
  36.  
  37. -- part 3 (field)
  38. -- low flags: 01
  39. -- high flags: 0000
  40. -- rect: left=78 top=77 right=94 bottom=164
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 0
  44. -- font id: 3
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Symbol
  49.  
  50.  
  51. -- part 4 (field)
  52. -- low flags: 01
  53. -- high flags: 0000
  54. -- rect: left=163 top=77 right=94 bottom=376
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 0
  58. -- font id: 3
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: Name
  63.  
  64.  
  65. -- part 5 (field)
  66. -- low flags: 01
  67. -- high flags: 0000
  68. -- rect: left=84 top=122 right=140 bottom=165
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 3
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: Last Week
  77.  
  78.  
  79. -- part 6 (field)
  80. -- low flags: 01
  81. -- high flags: 0002
  82. -- rect: left=164 top=122 right=140 bottom=403
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 0
  86. -- font id: 3
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: Last Week's Prices
  91.  
  92.  
  93. -- part 7 (field)
  94. -- low flags: 01
  95. -- high flags: 0000
  96. -- rect: left=84 top=148 right=166 bottom=165
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 0
  100. -- font id: 3
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: This Week
  105.  
  106.  
  107. -- part 8 (field)
  108. -- low flags: 00
  109. -- high flags: 0002
  110. -- rect: left=164 top=148 right=166 bottom=403
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 0
  114. -- font id: 3
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: This Week's Prices
  119. ----- HyperTalk script -----
  120. on CloseField
  121.   global updateFlag,cardNr,lineCount
  122.   set cursor to 4
  123.   if updateFlag="ok" then
  124.     add 1 to lineCount
  125.     put field "This Week"&","&field "This Week's Prices" into line lineCount of field "data" of card cardNr
  126.   end if -- updateFlag="ok"
  127.   if (updateFlag="ok") or (updateFlag="skip") then
  128.     add 1 to cardNr
  129.     if cardNr<=number of cards then
  130.       set lockScreen to true
  131.       put "openCard" into updateFlag
  132.       go to card cardNr
  133.       quickUpdate
  134.       put "OK" into updateFlag
  135.       set lockScreen to false
  136.     else
  137.       put "skip" into updateFlag
  138.       put empty into field "Name"
  139.       put empty into field "Symbol"
  140.       put empty into field "This Week"
  141.       put empty into field "This Week's Prices"
  142.       go card "Title Card"
  143.     end if
  144.   else
  145.     if (updateFlag="cancel") then
  146.       go card "Title Card"
  147.     end if
  148.   end if -- updateFlag="ok" or "skip"
  149. end CloseField
  150.